Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1445 1606 (N25W47 L= 48)  1148    222        1 (1337/1559-1537/1634) -39.3 W40-W51 N19-N29
      2 1137 1475 (N27W20 L= 22)   400     89        0 (1097/1455-1185/1497) -45.0 W17-W22 N24-N29
      3 1545 1412 (N12W43 L= 44)   409    129        0 (1511/1366-1581/1468)  81.9 W41-W44 N08-N15
      4 1359 1427 (N18W31 L= 33)   317     73        0 (1320/1413-1398/1441) -36.9 W29-W33 N16-N19
      5 1594 1351 (N07W44 L= 45)   317     71        1 (1564/1321-1614/1382)  18.4 W40-W46 N05-N08
      6  913 1296 (N23W01 L=  2)   842    215        1 ( 812/1244-1015/1332) -48.0 E04-W05 N17-N27
      7 1120 1231 (N14W11 L= 12)   218     71        1 (1084/1213-1150/1255)   0.0 W08-W13 N13-N14
      8 1743 1219 (S05W51 L= 52)   574     63        1 (1704/1194-1779/1246)   0.0 W46-W54 S05-S02
      9 1452  969 (S09W23 L= 24)   511    149        0 (1379/ 940-1520/1011)  -5.7 W17-W27 S10-S07
     10 1139  881 (S06W03 L=  4)   231     66        1 (1109/ 857-1160/ 900)   0.0 W00-W04 S07-S04
     11 1712  645 (S38W38 L= 39)  2505    285        4 (1647/ 523-1757/ 779)  59.0 W31-W42 S45-S29
     12  725  602 (S11E29 L=333)   566    198        0 ( 685/ 523- 778/ 649)  33.7 E33-E24 S15-S08
     13 1249  509 (S31E01 L=  0)  1602    266        4 (1190/ 391-1288/ 636)  51.8 E08-W04 S38-S23
     14 1485  509 (S39W16 L= 17)  1245    268        3 (1372/ 460-1613/ 565)  -8.1 W06-W27 S41-S36
     15  966  275 (S39E30 L=331)   596     71        1 ( 934/ 254-1008/ 303) -78.7 E33-E27 S42-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