Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  873 1722 (N31E34 L= 30)   433     82        1 ( 836/1688- 902/1754) -80.5 E35-E31 N27-N33
      2  571 1679 (N20E52 L= 12)   452     75        1 ( 538/1654- 609/1697)  53.1 E54-E49 N17-N21
      3  569 1552 (N12E44 L= 20)   451    121        2 ( 543/1505- 605/1601) -35.5 E48-E39 N09-N14
      4  376 1492 (N04E57 L=  7)   897    147        2 ( 322/1448- 409/1557)  76.0 E60-E53 N00-N08
      5  737 1334 (N03E25 L= 39)   445    150        0 ( 707/1279- 778/1404) -36.9 E28-E20 N00-N06
      6  990 1091 (S04E04 L= 60)   645    221        1 ( 924/1006-1038/1180) -84.8 E05-E02 S10-N01
      7  263  965 (S29E52 L= 12)   856    138        2 ( 223/ 913- 305/1025)  49.4 E56-E47 S32-S25
      8  996  824 (S18W04 L= 68)   644    203        0 ( 917/ 788-1082/ 885)  55.0 W00-W07 S22-S12
      9  732  844 (S24E12 L= 52)   419    241        0 ( 637/ 802- 836/ 864)  17.1 E17-E04 S27-S22
     10  496  781 (S35E28 L= 36)   314    102        0 ( 452/ 761- 544/ 798)  26.6 E31-E23 S37-S32
     11  595  647 (S40E17 L= 47)  1185    278        0 ( 491/ 580- 709/ 726)  45.0 E25-E10 S47-S32
     12 1555  377 (S24W63 L=127)  1938    193        3 (1480/ 351-1637/ 423)  15.5 W54-W72 S27-S20
     13 1377  308 (S34W55 L=119)   349     53        2 (1352/ 287-1399/ 330)  21.8 W52-W58 S35-S32
     14 1227  213 (S46W56 L=120)  1887    167        3 (1180/ 156-1284/ 295) -10.5 W44-W71 S48-S41
  

    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