Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1222 1489 (N33W14 L=276)   223     56        0 (1191/1478-1254/1500)   0.0 W11-W16 N32-N34
      2  425 1269 (N17E42 L=220)   952    160        3 ( 378/1218- 467/1334)  82.9 E46-E39 N13-N21
      3  933 1199 (N14E06 L=256)   572    296        2 ( 881/1130-1010/1296) -51.3 E09-E01 N09-N20
      4  949 1279 (N19E05 L=257)   248     47        2 ( 921/1259- 981/1295) -14.0 E07-E03 N17-N20
      5 1109 1184 (N13W05 L=267)   421    175        0 (1048/1137-1162/1261)  48.8 W01-W08 N10-N18
      6 1254 1154 (N11W14 L=276)   491    172        1 (1219/1092-1277/1241) -83.7 W12-W15 N07-N16
      7  216 1191 (N11E62 L=200)   880    201        1 ( 167/1138- 245/1230) -35.5 E69-E57 N07-N13
      8 1000  859 (S07E01 L=261)   286    107        0 ( 970/ 824-1050/ 879)  26.6 E03-W01 S09-S05
      9 1080  777 (S12W04 L=266)   220     38        2 (1056/ 750-1099/ 803) -33.7 W02-W05 S13-S10
     10 1407  747 (S14W25 L=287)   614    124        1 (1381/ 698-1442/ 799)  71.6 W23-W27 S16-S10
     11  313  702 (S19E52 L=210)  1153    167        3 ( 261/ 628- 353/ 785) -70.0 E56-E48 S24-S13
     12 1120  721 (S16W06 L=268)   217     52        0 (1093/ 692-1148/ 754)  53.1 W04-W08 S17-S13
     13 1010  607 (S23E00 L=262)   567    191        2 ( 991/ 520-1029/ 673)  84.8 E01-W00 S29-S18
     14  278  639 (S24E57 L=205)   561    105        0 ( 250/ 617- 307/ 670) -18.4 E60-E54 S25-S21
     15  509  590 (S26E37 L=225)   480    150        1 ( 461/ 556- 545/ 634)  29.1 E41-E32 S28-S22
     16  715  558 (S27E21 L=241)   422    134        0 ( 696/ 505- 746/ 608)  76.0 E22-E18 S31-S23
     17 1276  558 (S26W18 L=280)   677    131        2 (1205/ 533-1330/ 591)  14.0 W13-W21 S28-S24
     18 1070  489 (S32W04 L=266)   253     45        0 (1049/ 462-1088/ 515)  53.1 W02-W05 S33-S29
     19  415  445 (S37E50 L=212)   799    201        3 ( 396/ 399- 438/ 490)  41.6 E55-E46 S41-S33
  

    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