Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1471 1643 (N27W49 L=138)   773    152        0 (1428/1574-1524/1678)  15.9 W42-W56 N23-N28
      2 1635 1542 (N16W56 L=144)   877    132        3 (1605/1492-1670/1591)  45.0 W52-W60 N13-N18
      3 1245 1543 (N27W28 L=117)   468    104        2 (1189/1513-1290/1564) -51.3 W25-W30 N24-N29
      4 1121 1347 (N19W14 L=102)   986    344        2 (1025/1281-1259/1468) -66.4 W10-W20 N12-N28
      5  787 1312 (N25E07 L= 81)  1808    646        1 ( 540/1165-1024/1373) -35.1 E24-W04 N11-N32
      6 1881 1198 (S09W64 L=152)  1886    370        2 (1847/1030-1915/1365)  52.6 W55-W72 S17-N00
      7 1348 1315 (N12W26 L=114)   212     35        1 (1327/1299-1370/1336) -71.6 W24-W27 N10-N13
      8  655 1168 (N20E18 L= 70)   226     87        0 ( 613/1158- 709/1182) -18.4 E20-E14 N18-N21
      9 1418 1047 (S04W23 L=111)   287     76        1 (1399/1003-1433/1090)  53.1 W21-W24 S06-S02
     10 1774  956 (S19W47 L=135)  1155    171        2 (1702/ 910-1853/ 997)   0.0 W39-W55 S20-S17
     11 1917  880 (S29W65 L=153)   995     73        2 (1884/ 855-1958/ 897)  -3.8 W59-W74 S30-S26
     12 1348  869 (S13W15 L=103)   229     52        1 (1320/ 849-1372/ 894)   0.0 W12-W16 S13-S11
     13  874  858 (S02E12 L= 76)   194     75        0 ( 856/ 827- 902/ 883)  33.7 E13-E10 S03-N00
     14  989  768 (S10E08 L= 80)   376    117        0 ( 947/ 738-1028/ 818)  26.6 E10-E04 S11-S07
     15 1738  764 (S30W41 L=130)   365    102        0 (1685/ 728-1772/ 795)  14.0 W36-W45 S30-S28
     16  463  722 (S01E41 L= 47)   787    216        2 ( 377/ 658- 535/ 769) -33.7 E46-E37 S05-N03
     17  171  694 (N03E72 L= 17)  1401    129        2 ( 128/ 663- 228/ 735)  -9.0 E83-E64 N00-N05
     18  626  514 (S16E38 L= 51)  3688    621        7 ( 484/ 370- 868/ 687) -55.7 E43-E25 S27-S04
     19  460  590 (S08E46 L= 42)   698    140        1 ( 428/ 541- 494/ 658)  82.9 E49-E43 S11-S03
     20  818  551 (S18E24 L= 64)   317    108        0 ( 763/ 536- 870/ 572)  -8.1 E27-E20 S19-S16
     21  351  474 (S13E63 L= 26)  1274    205        2 ( 279/ 435- 437/ 548) -39.3 E67-E55 S16-S07
     22  584  277 (S30E57 L= 31)  3892    255        4 ( 512/ 161- 660/ 374)  39.3 E77-E50 S40-S22
     23 1510  284 (S61W20 L=108)   503     60        1 (1480/ 258-1534/ 314) -48.8 W15-W25 S65-S57
  

    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