Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1176 1490 (N28W24 L=254)   489    117        2 (1115/1469-1237/1506) -20.6 W19-W27 N26-N30
      2 1602 1438 (N12W49 L=279)  2055    468        3 (1499/1332-1765/1488) -10.9 W36-W62 N05-N15
      3  315 1139 (N30E45 L=186)  1896    378        1 ( 265/ 972- 409/1257)  49.1 E49-E35 N20-N36
      4  573 1215 (N29E23 L=208)   240     49        0 ( 547/1196- 600/1230)   0.0 E24-E20 N28-N30
      5 1020 1153 (N14W03 L=234)  2050    500        7 ( 797/1114-1259/1187) -22.9 E10-W16 N07-N18
      6 1611  974 (S12W33 L=264)   604    174        2 (1576/ 887-1648/1049)  48.8 W29-W37 S17-S08
      7  623  965 (N13E25 L=206)   263     85        0 ( 601/ 920- 644/1007)  38.7 E27-E22 N11-N15
      8  279  817 (N12E55 L=176)   776    131        4 ( 246/ 761- 322/ 880) -76.0 E58-E52 N07-N15
      9  631  771 (N02E29 L=201)   651    115        1 ( 588/ 735- 684/ 823) -51.3 E31-E26 N00-N05
     10 1609  724 (S27W28 L=259)   256     49        1 (1585/ 701-1626/ 756)  45.0 W26-W29 S28-S25
     11 1009  557 (S19E14 L=217)  2238    478        6 ( 865/ 369-1096/ 711)  80.9 E19-E11 S32-S07
     12  405  536 (S07E55 L=176)   810    173        4 ( 348/ 513- 468/ 555) -16.7 E60-E49 S08-S05
     13  840  408 (S25E30 L=201)   428    126        0 ( 824/ 364- 863/ 465)  50.2 E32-E25 S27-S21
     14  519  394 (S18E53 L=178)   532    118        0 ( 478/ 347- 557/ 442) -81.9 E54-E50 S21-S14
     15  593  255 (S30E57 L=174)  1132    226        3 ( 559/ 212- 616/ 308)  41.6 E62-E52 S33-S25
  

    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