Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1418 1653 (N39W28 L=255)  1965    315        3 (1289/1577-1559/1710) -18.4 W17-W39 N34-N43
      2  337 1498 (N24E55 L=172)   835    109        6 ( 316/1449- 360/1559) -53.1 E59-E51 N20-N28
      3  913 1534 (N27E10 L=217)   240     85        1 ( 877/1511- 951/1557) -18.4 E12-E06 N25-N28
      4 1688 1417 (N24W47 L=274)   406     86        1 (1667/1383-1710/1464) -80.5 W44-W48 N21-N27
      5 1530 1170 (N07W31 L=258)   439    118        0 (1495/1136-1550/1232) -90.0 W28-W32 N05-N10
      6  412 1093 (S01E40 L=187)   227     74        1 ( 394/1053- 427/1127) -71.6 E41-E38 S03-N00
      7  254  958 (S09E54 L=173)   312     39        1 ( 232/ 941- 278/ 977) -14.0 E56-E51 S10-S08
      8  488  904 (S13E34 L=193)   498    147        0 ( 454/ 842- 531/ 962)  49.4 E37-E30 S16-S09
      9  278  844 (S16E53 L=174)   546     97        2 ( 242/ 815- 328/ 875) -20.6 E56-E47 S17-S14
     10 1074  809 (S17W04 L=231)   216     47        1 (1053/ 789-1094/ 841) -90.0 W02-W05 S18-S14
     11  927  784 (S19E05 L=222)   229    126        1 ( 888/ 752- 991/ 835)  39.8 E07-E01 S20-S15
     12 1723  761 (S16W50 L=278)   482     92        4 (1695/ 718-1751/ 802) -59.0 W47-W53 S18-S13
     13  462  628 (S30E40 L=187)   966    142        2 ( 433/ 561- 500/ 706)  84.3 E41-E36 S34-S24
     14  211  609 (S30E72 L=155)  1265     67        1 ( 186/ 570- 238/ 642)  12.5 E84-E64 S32-S28
     15 1372  594 (S29W26 L=253)   588    110        3 (1328/ 559-1401/ 639)  59.0 W23-W28 S31-S25
     16 1115  587 (S31W08 L=235)   499    186        0 (1024/ 572-1202/ 601)   4.4 W01-W14 S31-S29
     17  664  534 (S36E25 L=202)   257    101        1 ( 619/ 521- 719/ 552)   0.0 E28-E20 S36-S34
     18  864  493 (S38E10 L=217)   254     73        0 ( 827/ 468- 893/ 523)  31.0 E12-E07 S40-S36
     19  573  276 (S57E50 L=177)   468     39        1 ( 550/ 255- 602/ 299)  13.0 E56-E43 S58-S54
  

    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