Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  613 1761 (N67E33 L=195)   537     50        1 ( 587/1743- 647/1780)  -4.8 E39-E25 N65-N69
      2 1000 1626 (N45W13 L=240)   417     65        0 ( 977/1589-1028/1650)  45.0 W10-W15 N42-N47
      3 1731 1497 (N19W67 L=294)   735    119        2 (1696/1459-1770/1544) -90.0 W63-W70 N16-N22
      4 1627 1418 (N18W50 L=278)  1689    405        0 (1461/1355-1811/1469) -26.6 W39-W67 N09-N24
      5 1347 1333 (N19W26 L=254)   238    115        0 (1329/1276-1363/1380)  56.3 W24-W28 N15-N21
      6  524 1194 (N25E31 L=197)  1323    315        1 ( 431/1074- 567/1302) -66.4 E38-E27 N16-N32
      7 1631 1160 (N03W42 L=269)   657    172        2 (1597/1084-1651/1227)  82.9 W39-W43 S01-N07
      8 1344 1161 (N09W22 L=249)   437    192        1 (1270/1127-1422/1187)  -5.7 W16-W26 N05-N10
      9  323  939 (N11E50 L=178)   297    101        1 ( 299/ 905- 368/ 963)  15.9 E52-E45 N09-N12
     10  666  624 (S12E30 L=198)   279    111        0 ( 645/ 601- 708/ 670) -68.2 E31-E27 S13-S08
     11  507  637 (S09E41 L=187)   303    102        0 ( 454/ 609- 538/ 665) -45.0 E44-E39 S11-S06
     12  912  397 (S31E21 L=207)  1154    343        2 ( 799/ 310-1026/ 512)  25.6 E32-E09 S37-S24
     13  711  412 (S27E34 L=193)   406    161        2 ( 664/ 340- 751/ 462)  28.3 E42-E29 S31-S23
  

    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