Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1402 1497 (N22W38 L= 16)   529    124        1 (1369/1442-1449/1544)  24.0 W34-W43 N19-N23
      2  879 1480 (N37W04 L=342)   257     83        0 ( 849/1450- 909/1510)  18.4 W01-W07 N35-N37
      3 1152 1462 (N28W21 L=359)   208     67        0 (1118/1443-1190/1477)   0.0 W18-W23 N26-N28
      4  684 1435 (N40E11 L=327)   408    103        1 ( 648/1409- 735/1459) -39.8 E13-E07 N36-N41
      5 1639 1282 (N04W44 L= 22)   846    144        3 (1580/1240-1708/1329)   0.0 W39-W51 N01-N04
      6 1167 1285 (N18W15 L=353)   224     62        0 (1137/1271-1200/1301) -45.0 W13-W16 N15-N18
      7  161 1260 (N40E70 L=268)   739     76        1 ( 122/1239- 195/1284)  -8.1 E83-E62 N38-N41
      8  585 1174 (N26E23 L=315)  1485    284        6 ( 445/1133- 720/1209) -22.8 E33-E14 N21-N30
      9 1783 1084 (S12W50 L= 28)   468    124        1 (1755/1032-1803/1141)  29.7 W46-W53 S13-S09
     10 1724 1034 (S12W43 L= 21)   447    113        1 (1672/1004-1780/1061) -36.9 W39-W47 S15-S09
     11  238  940 (N19E57 L=281)  2576    459        6 ( 125/ 818- 432/ 999)   1.5 E76-E38 N13-N23
     12 1376  884 (S10W16 L=354)   957    278        1 (1288/ 778-1434/ 992)  31.6 W08-W21 S13-S05
     13 1633  959 (S14W35 L= 12)   360     64        1 (1615/ 925-1662/ 990)  36.9 W32-W37 S15-S11
     14 1624  883 (S18W32 L= 10)   665    148        3 (1575/ 837-1684/ 929)  14.0 W28-W37 S19-S15
     15 1128  653 (S16E04 L=334)   369    104        1 (1096/ 606-1166/ 704)  33.7 E06-W00 S18-S14
     16  914  647 (S11E16 L=322)   217     46        1 ( 894/ 628- 937/ 671)  18.4 E17-E14 S12-S10
     17  587  373 (S21E49 L=289)  1090    156        1 ( 564/ 292- 612/ 451)  38.2 E57-E43 S26-S15
     18  406  368 (S18E68 L=270)  2664    194        7 ( 344/ 298- 460/ 423)  84.3 E84-E61 S24-S13
     19 1159  292 (S42E15 L=323)   438     74        0 (1141/ 252-1174/ 333)  50.2 E17-E12 S46-S39
     20 1390  256 (S56W01 L=339)  1403    182        3 (1308/ 231-1473/ 290) -22.4 E07-W10 S61-S51
     21  935  178 (S45E40 L=297)   584    128        0 ( 876/ 169-1001/ 192) -40.6 E44-E35 S47-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