Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  612 1462 (N44E16 L=254)   255     49        0 ( 596/1431- 627/1490) -90.0 E17-E14 N41-N45
      2 1789 1247 (S04W57 L=327)   574    166        0 (1750/1208-1837/1273)  -5.7 W51-W61 S05-S01
      3 1442 1225 (N06W30 L=300)   293    115        0 (1390/1193-1473/1268)   8.1 W25-W32 N05-N08
      4  975 1149 (N15W01 L=271)   421    133        0 ( 910/1105-1012/1204)  20.6 E04-W04 N13-N17
      5 1166 1184 (N12W12 L=282)   810    283        0 (1038/1144-1311/1204) -16.4 W03-W20 N08-N14
      6 1681  924 (S17W37 L=308)  1191    173        2 (1631/ 856-1752/ 973)   0.0 W32-W43 S19-S14
      7  465  912 (N14E37 L=233)  2435    568        9 ( 267/ 849- 683/ 969) -22.5 E52-E23 N07-N19
      8 1556  760 (S23W25 L=295)   720    175        0 (1509/ 669-1587/ 842)  48.4 W20-W28 S27-S18
      9 1066  709 (S12E06 L=264)   322    105        0 (1045/ 651-1100/ 761)  39.8 E08-E02 S14-S09
     10  971  718 (S09E11 L=259)   232     77        1 ( 939/ 679-1006/ 747)  21.8 E13-E08 S10-S07
     11  217  639 (N02E72 L=199)   552     89        1 ( 197/ 614- 237/ 663) -56.3 E74-E67 N00-N03
     12 1536  559 (S36W20 L=290)   368     81        0 (1503/ 541-1564/ 576) -31.0 W17-W22 S38-S34
     13 1082  453 (S28E13 L=257)   235     52        1 (1053/ 428-1110/ 473)   0.0 E15-E10 S29-S27
     14  552  351 (S22E53 L=217)  3065    344        2 ( 457/ 226- 641/ 472)  81.5 E56-E49 S32-S12
  

    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