Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  533 1533 (N26E37 L=  0)  1846    407        5 ( 425/1449- 650/1600) -23.2 E47-E26 N20-N31
      2 1065 1548 (N29W00 L= 38)   238     76        0 (1029/1528-1113/1571)  36.9 E01-W03 N27-N30
      3 1092 1466 (N23W02 L= 40)   447     85        1 (1039/1431-1137/1488)  -9.5 E01-W05 N21-N24
      4  307 1411 (N18E53 L=344)   608    129        1 ( 276/1384- 343/1454) -39.8 E56-E49 N16-N21
      5 1320 1427 (N22W17 L= 55)   247     49        0 (1296/1408-1353/1444) -14.0 W15-W19 N20-N22
      6 1076 1226 (N08W02 L= 39)   270     93        0 (1050/1184-1119/1269) -51.3 W00-W05 N05-N10
      7 1820 1159 (N09W55 L= 93)   478     77        2 (1793/1124-1842/1195) -53.1 W52-W57 N06-N10
      8 1156 1172 (N05W07 L= 44)   196     49        0 (1117/1158-1189/1187)  11.3 W04-W09 N04-N06
      9 1868 1008 (N00W61 L= 99)  4186    747       18 (1790/ 851-1949/1179)  65.8 W53-W73 S09-N11
     10  800 1128 (N01E14 L= 23)   257     77        0 ( 762/1096- 843/1148)  26.6 E16-E11 N00-N02
     11  708  965 (S09E19 L= 18)   235     86        0 ( 664/ 938- 749/ 991)  31.0 E21-E16 S10-S07
     12  247  891 (S14E54 L=343)   970    285        1 ( 173/ 815- 308/ 977)  32.7 E63-E48 S17-S08
     13 1454  871 (S11W28 L= 65)   273     80        0 (1429/ 831-1469/ 914) -59.0 W25-W28 S13-S08
     14 1859  769 (S14W64 L=101)  4739    651       13 (1787/ 627-1931/ 886)  90.0 W54-W75 S22-S06
     15 1655  676 (S21W46 L= 83)  1765    400        5 (1575/ 557-1694/ 830) -53.1 W37-W51 S29-S12
     16  813  607 (S31E13 L= 24)  2332    621        2 ( 558/ 452-1040/ 752)  30.7 E35-W02 S42-S20
     17 1479  719 (S20W31 L= 69)   220     82        0 (1445/ 705-1531/ 736)  31.0 W29-W34 S21-S18
     18  544  652 (S28E32 L=  5)   822    239        0 ( 468/ 595- 620/ 734)  31.6 E38-E25 S32-S23
     19  282  594 (S32E56 L=341)  1734    307        5 ( 209/ 552- 344/ 638)   0.0 E64-E49 S34-S29
     20 1636  445 (S36W53 L= 90)  1011     78        0 (1593/ 408-1676/ 486)  51.3 W49-W55 S39-S33
     21 1179  449 (S40W15 L= 52)   357     62        1 (1143/ 424-1212/ 476)  45.0 W12-W17 S41-S37
  

    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