Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  594 1705 (N48E43 L=220)   425     80        1 ( 578/1683- 619/1728) -45.0 E45-E40 N46-N50
      2  409 1265 (N17E43 L=220)   691    122        4 ( 376/1223- 439/1316)  80.5 E46-E40 N13-N19
      3  928 1277 (N19E07 L=257)   206     54        0 ( 899/1261- 952/1293) -26.6 E08-E04 N17-N19
      4 1859 1243 (N16W66 L=329)   531     81        1 (1841/1216-1876/1272)  45.0 W63-W68 N14-N17
      5 1080 1182 (N13W03 L=267)   369    177        1 (1013/1137-1138/1266)  53.1 W00-W07 N10-N18
      6  918 1181 (N13E07 L=256)   254    152        0 ( 887/1130- 975/1254) -58.0 E08-E03 N09-N17
      7  207 1194 (N11E63 L=200)   833    187        2 ( 166/1141- 234/1241) -40.6 E69-E59 N07-N13
      8 1226 1107 (N09W13 L=276)   299     86        2 (1191/1071-1253/1150)  78.7 W10-W14 N06-N11
      9  215 1092 (N05E61 L=203)   443     72        1 ( 194/1065- 233/1116)  45.0 E63-E58 N03-N06
     10  978  863 (S07E03 L=261)   211    103        0 ( 951/ 827-1025/ 880)  26.6 E04-W00 S08-S05
     11  292  710 (S19E54 L=209)  1076    212        4 ( 238/ 627- 348/ 795) -61.4 E58-E49 S24-S13
     12 1385  742 (S14W24 L=287)   497     96        1 (1360/ 698-1417/ 794)  63.4 W22-W25 S16-S10
     13 1090  711 (S16W05 L=268)   213     80        1 (1056/ 681-1121/ 751)  51.3 W02-W06 S18-S13
     14  251  646 (S24E60 L=203)  1024    217        5 ( 207/ 617- 296/ 677) -18.4 E66-E55 S25-S21
     15  988  606 (S23E02 L=262)   485    217        2 ( 966/ 519-1009/ 674)  84.8 E03-W00 S29-S18
     16  511  615 (S24E36 L=227)   267    119        0 ( 483/ 580- 540/ 658)  39.8 E38-E32 S26-S21
     17  694  563 (S27E23 L=241)   335    119        0 ( 679/ 511- 717/ 608)  66.8 E23-E20 S30-S23
     18 1261  559 (S26W17 L=280)   610    112        2 (1200/ 536-1306/ 599)  29.7 W12-W20 S28-S23
     19 1048  489 (S32W03 L=266)   228     62        0 (1030/ 457-1070/ 517)  68.2 W01-W04 S34-S29
     20  404  449 (S37E51 L=212)   797    256        3 ( 377/ 403- 435/ 502)  36.9 E57-E45 S41-S32
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y