Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  452 1304 (N37E32 L=343)   264     99        0 ( 419/1266- 492/1337)  23.2 E35-E28 N35-N38
      2  678 1234 (N27E16 L=  0)   284    104        2 ( 620/1220- 729/1253) -23.2 E19-E12 N25-N29
      3 1184 1108 (N08W11 L= 27)   357     90        1 (1158/1064-1216/1143)  36.9 W09-W13 N05-N09
      4  193 1035 (N25E61 L=315)  1958    207        3 ( 118/ 969- 278/1112) -23.2 E74-E51 N20-N30
      5 1330  843 (S11W13 L= 28)   208    110        0 (1306/ 794-1350/ 890)  45.0 W10-W14 S13-S08
      6 1150  787 (S09W01 L= 17)   214    102        1 (1107/ 754-1196/ 819)   9.5 E02-W04 S10-S08
      7  782  633 (S09E24 L=352)   796    289        1 ( 718/ 525- 847/ 756)  36.3 E31-E16 S14-S03
      8 1130  652 (S17E04 L= 12)   389    134        1 (1067/ 622-1174/ 698)   0.0 E07-W00 S18-S14
      9 1059  617 (S17E09 L=  7)   244     50        1 (1035/ 600-1089/ 641) -45.0 E10-E06 S18-S14
     10  509  475 (S13E49 L=327)   853    105        2 ( 459/ 434- 553/ 515) -59.0 E51-E45 S16-S09
     11  592  438 (S17E44 L=331)   460    105        1 ( 573/ 394- 616/ 487)  39.8 E47-E40 S19-S14
     12 1447  455 (S40W12 L= 28)   311     21        1 (1425/ 434-1469/ 474)   0.0 W09-W13 S41-S38
     13 1238  298 (S45E09 L=  7)   790    183        1 (1168/ 251-1316/ 350)  11.3 E16-E01 S47-S42
     14  716  232 (S34E51 L=325)  1963    348        4 ( 626/ 130- 789/ 345)  54.5 E63-E45 S45-S23
     15 1113  141 (S56E33 L=343)  1611    224        1 (1026/ 116-1210/ 168) -25.0 E39-E23 S60-S50
  

    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