Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1389 1629 (N28W44 L= 82)   591    116        2 (1335/1609-1452/1651) -11.3 W39-W49 N25-N30
      2  475 1519 (N50E28 L= 10)   461    118        1 ( 423/1501- 536/1531) -13.0 E34-E21 N48-N52
      3  977 1386 (N27W07 L= 45)   199     37        1 ( 955/1363- 994/1409)  63.4 W06-W09 N25-N27
      4 1079 1160 (N11W07 L= 44)   487    213        0 (1042/1090-1119/1241)  58.0 W04-W11 N06-N15
      5 1502 1142 (S01W30 L= 68)   282    101        0 (1474/1096-1522/1186) -90.0 W29-W31 S04-N01
      6  415 1107 (N25E37 L=  1)   349     66        1 ( 386/1077- 445/1128) -45.0 E38-E34 N22-N26
      7  136 1048 (N27E69 L=329)  1141    143        3 (  99/ 992- 175/1116) -28.1 E78-E62 N23-N31
      8  242  945 (N19E55 L=342)   482     91        1 ( 216/ 910- 275/ 970)  15.9 E58-E51 N16-N20
      9 1617  889 (S19W32 L= 70)   428     90        0 (1590/ 856-1636/ 935)  63.4 W29-W33 S20-S15
     10  925  700 (S10E14 L= 24)   483    174        1 ( 848/ 672- 990/ 743)   0.0 E19-E09 S11-S08
     11 1288  448 (S36E01 L= 37)  1025    190        3 (1225/ 382-1347/ 527)  28.6 E06-W05 S39-S32
     12  783  323 (S30E39 L=359)  1586    229        2 ( 732/ 240- 842/ 407)  22.8 E49-E30 S34-S24
     13 1153  358 (S38E13 L= 25)   468     64        2 (1118/ 338-1186/ 381) -36.9 E15-E10 S40-S36
     14 1025  296 (S39E25 L= 13)   649     93        2 ( 977/ 275-1079/ 317) -14.0 E28-E20 S41-S36
  

    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