Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  706 1569 (N43E09 L=284)   340     91        0 ( 680/1523- 741/1594)  26.6 E11-E05 N40-N44
      2 1772 1544 (N14W70 L=  2)   842    178        2 (1748/1514-1794/1576)  23.2 W66-W74 N12-N15
      3  835 1443 (N31E02 L=290)   291     92        0 ( 780/1428- 883/1456)  -9.5 E05-W01 N29-N32
      4 1291 1256 (N10W21 L=313)   790    202        4 (1201/1223-1398/1287) -28.6 W15-W26 N05-N12
      5  887 1199 (N15E04 L=288)  1264    342        1 ( 717/1151-1051/1232) -14.0 E15-W05 N10-N17
      6  966 1097 (N08E02 L=290)   205     92        0 ( 930/1052-1003/1139)  31.0 E04-W01 N06-N09
      7 1624 1008 (S12W36 L=328)   296    101        0 (1608/ 952-1637/1057)  63.4 W34-W37 S14-S08
      8 1756  976 (S17W46 L=338)   757    169        0 (1720/ 891-1783/1055)  48.8 W41-W49 S20-S12
      9  138  995 (N18E65 L=228)  1065    274        1 (  87/ 970- 193/1018) -13.0 E71-E58 N16-N19
     10  389  990 (N14E40 L=252)   316     64        2 ( 359/ 963- 418/1012) -45.0 E42-E38 N11-N15
     11  288  841 (N07E52 L=240)   617     75        0 ( 267/ 800- 318/ 873)  53.1 E55-E49 N04-N08
     12 1224  701 (S20W05 L=297)  1679    398        5 (1161/ 533-1302/ 869)  57.7 E03-W09 S29-S10
     13 1364  792 (S18W15 L=307)   342    150        0 (1353/ 720-1390/ 855)  69.4 W13-W17 S22-S14
     14  490  643 (S08E42 L=250)   260     76        2 ( 472/ 615- 511/ 672) -90.0 E43-E40 S09-S06
     15  602  596 (S13E36 L=257)   434     86        1 ( 574/ 551- 625/ 637)  71.6 E36-E34 S16-S10
     16  427  567 (S11E50 L=242)   875    176        2 ( 398/ 495- 463/ 632)  53.1 E53-E46 S15-S07
     17  319  533 (S12E62 L=230)  2438    358       10 ( 267/ 471- 378/ 599) -82.9 E67-E55 S15-S07
     18  686  554 (S17E32 L=261)   465     90        2 ( 655/ 508- 713/ 591)  78.7 E33-E28 S20-S15
     19  623  499 (S19E38 L=254)   683    176        3 ( 568/ 433- 663/ 533) -71.6 E41-E34 S23-S17
     20 1089  331 (S42E15 L=277)   487    113        2 (1060/ 292-1112/ 375)  76.0 E17-E12 S45-S37
     21 1007  200 (S51E30 L=263)   850    123        1 ( 982/ 162-1028/ 239)  48.8 E34-E25 S55-S47
  

    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