Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1063 1665 (N43E09 L=123)   986    273        6 (1029/1577-1096/1743) -50.2 E14-E04 N36-N49
      2  471 1536 (N23E49 L= 83)  1203    274        3 ( 397/1409- 541/1673) -84.0 E52-E45 N14-N33
      3 1471 1570 (N43W26 L=158)   337     86        0 (1447/1546-1505/1585)  33.7 W23-W29 N40-N44
      4  651 1503 (N24E33 L= 99)   334    124        0 ( 638/1453- 668/1557) -60.3 E35-E30 N20-N27
      5 1369 1452 (N32W17 L=149)   271     42        0 (1351/1421-1387/1478)  76.0 W15-W18 N29-N33
      6  810 1339 (N16E18 L=114)   217    119        1 ( 751/1314- 844/1373)  31.0 E21-E15 N13-N18
      7 1027 1238 (N13E03 L=129)   306    103        1 ( 969/1221-1071/1255)  18.4 E06-W00 N11-N14
      8 1111 1092 (N05W04 L=136)   243    108        0 (1081/1029-1134/1136) -50.2 W01-W06 N01-N07
      9 1504 1076 (N10W30 L=162)   252     53        1 (1479/1044-1532/1095)  63.4 W27-W31 N07-N11
     10  261  947 (S16E53 L= 79)   398     83        1 ( 244/ 904- 274/ 986) -59.0 E54-E51 S18-S13
     11  663  929 (S11E21 L=111)   257    122        1 ( 607/ 913- 721/ 947)   8.1 E24-E17 S11-S09
     12 1032  842 (S11W03 L=135)   717    167        3 ( 972/ 761-1065/ 931) -73.3 W00-W06 S15-S05
     13  476  561 (S38E34 L= 98)   431    123        1 ( 429/ 536- 513/ 592)  24.0 E39-E30 S40-S35
  

    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